home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 20 / 020.d81 / control q (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  944b  |  36 lines
  1. 5 print"[147]";chr$(14)
  2. 10 open2,8,2,"control-q.msg":forx=0to1:get#2,a$:printa$;:x=st:nextx:close2
  3. 20 geta$:ifa$=""then20
  4. 30 printchr$(142):load"hello connect",8
  5. 100 print chr$(147):printtab(17)"ctrl-q"
  6. 110 print tab(11)"quote mode control"
  7. 120 print tab(9)"by bennett cookson jr."
  8. 130 print:print"  ctrl-q to turn quote mode on and off"
  9. 200 sa=679
  10. 300 def fnh(d)=int(d/256)
  11. 305 def fnl(l)=l-fnh(l)*256
  12. 500 i=sa
  13. 510 read a:if a=256 then 700
  14. 520 poke i,a:i=i+1:goto 510
  15. 530 data 165,212,240,4,169,0,208,7
  16. 540 data 133,212,133,216,141,172,2,165
  17. 550 data 145,201,187,208,21,166,203,228
  18. 560 data 197,240,12,173,172,2,73,255
  19. 570 data 141,172,2,133,212,134,197,76
  20. 580 data 66,235,76,72,235,120,169,167
  21. 590 data 141,143,2,169,2,141,144,2
  22. 600 data 88,96,32,212,2,76,131,164,256
  23. 700 poke sa+47,fnl(sa)
  24. 710 poke sa+52,fnh(sa)
  25. 750 print:print"lock? (stop/restore won't distroy it)"
  26. 755 print" y or n"
  27. 760 get k$:if k$<>"y" and k$<>"n" then 760
  28. 770 if k$="n"then 850
  29. 800 poke 770,fnl(sa+58):rem lock
  30. 810 poke 771,fnh(sa+58)
  31. 850 sys(sa+45)
  32. 860 print:print"sys";sa+45;"to restart"
  33. 890 end
  34. 900 poke 770,131:rem remove lock
  35. 910 poke 771,164
  36.